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uem imaginar que o desenvolvimento da comunicação 
homem/máquina, através de computadores pessoais, se esgota no atual 
estágio tecnológico e científico da informática está muito enganado. 
Softwares, hardwares e sistemas operacionais são desenvolvidos cada vez mais 
para, além de responder às necessidades do mercado, abrir novas 
possibilidades de utilização. 

Este é o caso do CP 500 modelo M$0, último lançamento da CP 
Computadores Pessoais: este equipamento possui um dos mais poderosos 
sistemas operacionais, o SOO8, que permite a utilização da maior biblioteca 
de software do mundo e a"formação de eficientes redes de computação. 

Neste número, a Geração Prológica publica as características desta nova 
máquina e suas possibilidades de software. Mas as informações não param 
por aí: ensinamos como transformar seu computador pessoal num piano, num 
controlador de luzes, portas, televisores e segredos de cofres, além de dicas do 


comando POKE. Tudo isso com um único objetivo: facilitar e desenvolver a 
comunicação homem/máquina.. 
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O CP 500 Modelo M80, com 
o sistema operacional 5008, 
é a resposta profissional ca 
CP Computadores Pessoais, 


ias do mercado 
Páginas 5 e 6. 


Carlos Roberto A. Gauch 


Análise e Criação de uma Mala Direta 
— Parte IV.. 





Curso de Basic — Lição IX... 





Transforme o seu CP em um Contro- 
lador de Luzes, Televisores, Portas 
e Segredos de Cofres. 13, 14e 15 


No Encarte Especial, o programa Aker- 
naak (para você escrever sua própria his- 
tória de mistério no CP 500), um 
Controle Bancário para o CP 400 e o 
jogo Aterrissagem Lunar (Parte 1) para 
o CP 200. 
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CURSOS 


Redes Locais de Computadores — 
Dias: 19 e 20 de agosto. Taxa: 50 
ORTN's. Mais informações pelos te- 
Tefones: 286-6891/226-2913. O cur- 
so é ministrado pelo IBPI — Insti- 
tuto Brasileiro de Pesquisaem Infor- 
mática — Rua Mena Barreto, 77 — 
Rio de Janeiro. 


Planejamento de Informática na 
Empresa — Dias: 18 a 20 de setem- 
bro. Taxa: 60 ORTN's. Mais infor- 
mações pelos telefones: 286-6891/ 
226-2913. O curso é ministrado peló 
IBPI — Instituto Brasileiro de Pes- 
quisa em Informática — Rua Mena 
Barreto, 77 — Rio de Janeiro. 





Supervisicale — Dias: 22e cg et 
lho. Horário: 8:30às s 
ORTN's. SPCI— Sã Paulo c Com- 
puter Institute — Avenida Rebou- 
ças, 1669 — São Paulo — telefone: 
883-0355. 





Introdução ao Micro para Secretá- 
rias Executivas — Dias: 8 a 10 e 5 
de junho a 7 de julho. Horário: 18:30 
às 22:00. Taxa: 38 ORTN's.SPCI— 
São Paulo Computer Institute — 
Avenida Rebouças, 1669 — São 
Paulo — telefone: 883-0355. 


Introdução ao dBase II — Dias: 15, 
el6dejulho. Horário: 8:30 às 17:30. 
Taxa: 45ORTN's. SPCI — São Pau- 
lo Computer Institute — Avenida 
Rebouças, 1669 — São Paulo — te-| 
Tefone: 883-0355. 





Geração Proógica é uma publicação da EDITELE — Ed 

















tora Técnica Eltêica Lia. — Aminista. 

ão é Publicidade: ua Casa do Ater, 1060 Telefones. 

SZOSOR (Assinaturas), 5315468 (Adminisiração, 
(Redação) 





5321666 (Publicidade) e 2404305 -0 
04546 — Via Olimpia. 
CAIXA POSTAL 30141 — 01000 — São Paulo — SP. 


Tragem desta eião: 2400 exemplares. 
Todos oi iris resenados proie sea reprodução pa 
la ou tolas lets e ustações desta publicação. 
Potida a venda, separadamente do encare epoca 
de 


Batalha Naval 


Sou assinante da Geração Prológi- 
ca e estou muito satisfeito com as ma- 
térias publicadas. Tanto, que estou até 
fazendo propaganda entre os amigos 
possuidores de computadores pessoais. 








Wordstar — Dias: 17 e 18 de julho. 
Horário: 8:30 às 17:30. Taxa: 35 
ORTN's. SPCI — São Paulo Com- 
puter Institute — Avenida Rebou- 
sas, 1669 — São Paulo — telefone: 
883-0355. 


€, a Linguagem do Futuro — Dias: 
10a 12 de julho. Taxa de inscrição: 
SOORTN's. Periodo: diurno. O cur- 
so é oferecido pela Compucenter Mi- 
croinformática — Rua Bela Cintra, 
746 — 3º andar — telefone: (011) 
257-0577/255-5988 — São Paulo. 








Conhecendo o Unix — Dias: 8a 12 
de julho no período noturno; 29 a 30 
de julho no período diurno. Taxa de 
inscrição: 40 ORTN's. Compucenter 
Microinformática — Rua Bela Cintra, 
746 — 3º andar — telefone: (011) 
257-0577/255-5988 — São Paulo. 


Microcomputadores para Sistema 
Distribuído — Dias: 15 a 17 de ju- 
lho. Período: diurno. Taxa de inscri- 
ção: 60 ORTN's. Compucenter Mi- 
croinformática — Rua Bela Cintra, 
746 — 3º andar — telefone: (011) 
257-0577/255-5988 — São Paulo. 








dBase3o Banco de Dados para PCs 
: 18 e 19 de julho. Perio- 
do: diurno. Taxa de inscrição: 20 
ORTN's. Compucenter Microinfor-. 
mática — Rua Bela Cintra, 746 — 3º 
andar — telefone: (011) 257-0577// 
255-5988 — São Paulo. 





Introdução aos Micros — Dias: 29' 
e 30 de julho. Período: diurno. Ta- 
xa de inscrição: 20 ORTNºs. Com- 
pucenter Microinformática — Rua 
Bela Cintra, 746 — 3º andar — tele- 


Amigos, na verdade, estou escre- 
vendo para pedir uma informação so- 
bre o programa BATALHA NAVAL, 
publicado na GP nº 9: quando termi- 
nei de digitar a linha 640, verifiquei 
que a linha 650 estava incompleta, ou 
seja, falta o destino do 1º GOSUB. 
Gostaria da resposta o mais breve pos- 
sível, pois eu e minha esposa somos fa- 
náticos por este jogo. 

Sem mais, abraços e parabéns pelo 
belo trabalho, em nome de todos os 
usuários Prológica. 

Gilberto Martins Loureiro — 
São João da Meriti — RJ 
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E 
ca— 9 de julho. Perío- 
achou a “Taxa de Inserção: 40 
ORTN'S, nter Microinfor- 
mática — Rua Bela Cintra, 746 — 3º 


andar — telefone: (011) 257-0577/ 
255-5988 — São Paulo. 


Iniciação do dBase 2 — Dias: 22423 
de julho. Taxa de inscrição: 30 
ORTN's. Compucenter Microinfor- 
mática — Rua Bela Cintra, 746 — 3º 
andar — telefone: (011) 257- 
0577/255-5988 — São Paulo. 


CPM Avançado — Dias: 25 e 26 de 
julho. Taxa de inscrição: 40 ORTN's. 
Compucenter Microinformática — 
Rua Bela Cintra, 746 — 3º andar — 
telefone: (011) 257-0577/255-5988 
— São Paulo. 


EVENTOS 


Informática 85 — A V Feira Inter- 
nacional de Informática, Telecomu- 
nicações, Organização e Equipa- 
mentos de Escritório, ou simples- 
mente Informática 85, será realiza-| 
dade 23 a 29 de setembro no Parque 
i, em São Paulo. Paralela- 
será realizado o 18º 
ide Informática. 

incompleto, de- 
verá incluir temas como informáti- 
caesoberania nacional, automação 
bancária, automação industrial, pri- 
vacidade em bancos de dados etc. 









Amigo Gilberto, ficamos felizes por 
você estar satisfeito com nosso traba- 
lho e esperamos sempre estar à altura 
de suas necessidades. Quanto ao pro- 
grama BATALHA NAVAL, a linha 
650 deve ser digitada da seguinte form: 
650 NX= RND(4;GOSUB 1290 :IF JP 
THEN 650 
E deve-se incluir a seguinte linha: 
1415 ON NX GOTO 1420, 1430, 1440, 
1450 
Pedimos desculpas pelo atraso na res- 
posta, mas enviamos as informações 
solicitadas pelo correio e a carta vol- 
tou por incorreções no endereço. 
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Velocidade no CP 200 


Possuo um computador pessoal CP 
200 e necessito gravar em fitas diver- 
sos artigos; por isso, preciso de infor- 
mações sobre como tornar meu CP 
mais rápido. 

Francisco Oswaldo Castellucei Filho — 
Araraquara — SP 





Francisco, o CP 200 apresenta duas 
funções de armazenamento, com duas 
velocidades: rápida (quick storage) e 
alta velocidade (speed storage). Os co- 
mandos de speed storage aumentam 14 
vezes a velocidade de gravação e leitu- 
ra, facilitando e agilizando a operação 
com o gravador cassete. 

Existem três comandos disponíveis 
no modo de alta velocidade (speed 
storage): 

Gravação (SSAVE) 
Verificação (SCHECK) 
Leitura (SLOAD) 

A escolha dos comandos é efetua- 
da através do menu e para se ter aces- 
so a ele, digite o seguinte comando: 
RAND USR 8200 

Após pressionar ENTER, aparece- 
rá o seguinte comando na tela: 

Você deseja: LER 
GRAVAR 
VERIFICAR 
2 


Para selecionar uma dessas operações, 
pressione a tecla correspondente (L, G 
ou V). Após os comandos L ou G, 
aparecerá na tela o seguinte comando: 
DIGITE O NOME DO PROGRAMA 

Selecionando L ou G, se quiser dar 
um nome ao programa, digite-o, no 
máximo, com seis caracteres. Senão, 
pressione ENTER para a operação ser 
iniciada. Mas, atenção: antes de teclar 
ENTER, acione PLAY/RECORD no 
gravador, para que você não perca 
parte do programa. 

Selecionando V, é feita uma com- 
paração do programa que está na me- 
mória do computador com o que está 
na fita. Para tanto, posicione a fita no 
começo do programa em questão, 


acione PLAY e digite Y, para ini- 
ciar a gravação. 

Neste processo, a gravação e leitu- 
ra são executadas em velocidades mui- 
to maiores que o normal, por isso o 
sistema de reprodução é muito exigi- 
do. Para que você não tenha proble- 
mas, mantenha o cabeçote de gra- 
vação sempre limpo e utilize somente 
fitas de boa qualidade. 


Memória do CP 2008 


Gostaria de receber as seguintes in- 
formações: como se copia fita de pro- 
grama e possibilidades de expansão da 
capacidade de memória do CP 2005. 

Antonio Carlos M. Silva — 
São José dos Campos — SP 





Caro Antonio Carlos, para se co- 
piar fita de programa, siga a seguinte 
rotina: ajuste a tonalidade de seu gra- 
vador para 10 e o volume entre 7 e 8. 
Este volume pode ser alterado de acor- 
do com a gravação do programa ou a 
marca do gravador usado. 

Feito isso, tecle LOAD"”, Posicio- 
ne a fita e pressione PLAY. Se apare- 
cer na tela o código 0/0, a gravação foi 
bem sucedida. Então, pressione RUN 
para a execução do programa. 

Quanto à expansão de capacidade 
de memória, o CP 2008 possui um co- 
nector lateral que fornece todos os si- 
nais necessários para se ter acesso dire- 
to ao microprocessador Z-80. A par- 
tir daí pode ser feita a expansão de me- 
mória. Porém, no mercado, não há 
nenhum cartucho que possibilite esta 
expansão, que terá de ser realizada pe- 
lo próprio usuário. 








As cartas para a redação da Geração 
Prológica deverão ser enviadas ao se- 
guinte endereço: 

Editele — Editora Técnica Eletrônica 
Ltda. — Rua Casa do Ator, 1060 — 
CEP 04546 — São Paulo — SP 
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Com o sistema operacional S008, compatível com. 





o CPIM, o usuário tem à sua disposição a mais 





vasta biblioteca de programas profissionais. 





“Neste número, os softwares da Nasajon Sistemas. 





Mala Direta 
com Editor de Textos 


adastramento de clientes 





Permite o 


com seus dados principais, tais como: 
nome, endereço, tipo, data de nasci- 


mento etc. paraposterioralteração,ex- 
clusão e consulta. Fornece relatórios de 
todos osclientes do cadastro ou apenas 
os selecionados pelo operador. Emite 
etiquetas nos tamanhos pequeno, mé. 
dio e grande, para endereçamento pos- 
tal, Com o Editor de Textos é possível 
criar e armazenar textos para serem 
emitidos para os clientes selecionados. 


Contabilidade Geral 


Fornece saldos parciais com apuração 
de receitas e despesas, balancete com- 
parativo com o mês correspondente ao 
exercício anterior e relatórios na impres- 
sora. Apresenta um plano de contas em 
cinco níveis, relação de históricos pa- 
drões, lançamentos, extratos de contas, 
balancetes de verificação, abertura e fe- 
chamento de diário, livro diário, balan- 
cete mensal, balanço geral, demonstra- 
o de resultados do exercício e apura- 
o de resultados com manipulação de 
fórmulas a critério do operador. 























Folha de Pagamento 


dus da empresa, filiais, departamentos 
eseções, cargose salários, bancos, ren- 
dimentos e descontos, IAPAS e IR, ta- 
belas gerais, cartões de ponto e folha de 
pagamento, recibo de pagamento e re- 
lação para depósito bancário, relação 
de salário base, emissão do RAIS, rel 
ção de empregados, imposto de renda 
retido na fonte anual, contribuição sin- 
dical, acumulados anuais e movimen- 
tação mensal. 











Crediário 








dos, a exigibilidade das contasa pagar, 
bem como as disponibilidades atuais e 
futuras (contas à receber). Permite a 
manutenção dos arquivos de bancos, 
classificações das contas a pagar/rece- 
ber. Emite relatórios operacionais on- 
de são visualizadas as contas a pagar/ 
receber, a disponibilidade no período, 
ostotais do mês por classificação, a con- 
ciliação do período com todos os 
camentos realizados no mês, o movi- 
mento financeiro e o resumo dos saldos 
bancários. 














Através do cadastramento dos clientes, 
com suas informações básicas, como 
nome, endereço, cidade etc., permite 
a geração de contratos para estes clie; 
tes, controlando as vendas a prazo. For- 
nece relatórios com a movimentação 
das vendas, clientes com pagamento em 
atraso, movimento dos recebimentos 
pendentes por filial e geral, fichas indi- 
viduais de clientes, onde podem ser vi- 
sualizados o histórico, os dados gerais 
ea posição do contrato atual, relatório 
decontasa receber, emissão das 1? c2? 
vias do carnê, listagem geral do cadas- 
tro eemissão de etiquetas para mala di- 
reta com os contratos atrasados. 


Controle do 
Exigível/Disponível 





A partir do cadastramento de funcio- 
nários, emite listagens operacionais: da- 


4 


Controla os depósitos/saques em ban- 
cos, através dos lançamentos realiza- 





Controle de Projetos 
Ecomposto por três subsistemas: con- 
trole de estoque, elaboração de orça- 
mentos e controle de produção. Permite 
a interligação com os sistemas de Con- 
tabilidade Geral, Departamento Pes- 
soale Folha de Pagamento. Com o ca- 
dastramento dos itens básicos, elemen- 
tos componentes de produtos, itens de 
grupo, conjunto de itens básicos, que 
compõe uma unidade padrão de medi- 
da, permite a composição da obra atra- 
vés da informação dos dados principais. 
Emite relatórios. Calcula orçamento, 
emite listagens, indica percentuais par- 
ciais e gerais. 











Maiores informações sobre estes e ou- 
tros programas na Nasajon Sistemas, 
Avenida Rio Branco, 45 — Grupo 1311 
— CEP 20.090 — Rio de Janeiro — Te- 
lefone: (021) 263-1241. 
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REPORTAGEM DE CAPA 


O PROFISSIONAL DO ANO 


O CP 500 modelo M80 
é o profissional de sua 
categoria com a 

maior base de software 
em todo o mundo. 


(O Eron ado de infor- 
mática no Brasil exige da indús- 
tria nacional soluções para necessida- 
des cada vez mais acentuadas, que 
caracterizam-se pela tendência de espe 
cialização e profissionalização, pois a 
computação é uma das ferramentas 
mais utilizadas em todos os setores pro- 
fissionais ou atividades que exigem mais 
eficiência e agilidade. Em respostaaes- 
ta necessidade, a CP Computadores 
Pessoais desenvolveu o CP 500 mode- 
lo M$0, o mais versátil e poderoso pro- 
fissional do mercado brasileiro. O M80, 
além de possuir todas as características 
anteriores do CP 500, também possibi- 
lita a operação com o Sistema Opera- 
cional SO08, desenvolvido pela CP e to- 
talmente compatível com o sistemamais 
difundido e com maior base de softwa- 
re em todo o mundo: o CP/M. O 
CP 500 modelo M$) trabalha com um 
microprocessador Z 80, clock: 2,35 
MHz, memória 64 K no sistema SO08 
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€ 48 K (RAM) e 16 K (ROM) no DOS 
500. Possui teclado capacitivo, o que 
garante mais de 10 milhões de operações 
em suas 64 teclas, além do teclado nu- 
mérico reduzido. 


Are de o CP 500 M80 também 
operar com o DOS 500, a gran- 
de vantagem do S008 é a capacidade do 
vídeo: 80x24, enquanto que no 
DOS 500 a capacidade é de 64x 16 ou 
32x 16. Mas as vantagens do M80 não 
param no S008. Como se trata de um 
equipamento profissional e eficiente, si- 
multancamente com o CP 500 modelo 
Mg0 a CP coloca à disposição do mer- 
cado a Interface serial CP 532C para 
comunicação de dados, printer e outros 
periféricos que requerem este tipo de si- 
nal, O CP 532C podeser facilmente ins- 
talado pelo usuário através de conector 
específico. 





MU possui também quatro ver 

des: (022) com um drive, face 
simples e capacidade de 175 Kbytes; 
(022D) com um drive, face dupla e ca 
acidade de 350 Kbytes; (023) com dois 
face simples e capacidade de 
350 Kbytes; e (023D) com dois drives, 
face dupla e capacidade de 700 Kbytes. 





Produzido em São Paulo, na unidade 
fabril da CP Computadores Pessoais, 
o CP 500 modelo M$0 terá uma produ- 
ção aproximada de mil máquinas 
mensais. 


egundo o Departamento de Pro- 
dutos da CP, o modelo M80 é a 
resposta da empresa às necessidades do 
mercado e, por isso mesmo, não custa- 
rá mais caro por causa das inovações, 
modernização e profissionalização do 
equipamento. Ao contrário, o M80 re- 
presenta a mais eficiente relação cus- 
to/benefício da sua categoria. 


J unto com o CP 500 modelo M80, 
o usuário recebe os seguintes uti- 

litários para o SOO8: 

EDIT? — Editor de textos. 

PIP — Cópia de arquivos. 

STAT — Consulta ao diretório. 

GERSIS — Programa gerador do Sis- 

tema Operacional SOO8. 

SUBMIT e XSUB — Programa para 

execução de vários comandos, sem a ne- 

cessidade de interferência do usuário. 

FORMS500 — Programa formatador de 

disquete. 

CONF500 — Programa que permite a 

configuração dos parâmetros do SOOS. 


COPIAS00 — Copiador de disquetes 
(backup). 


s softwares podem trabalhar em 

35 trilhas, 10 setores por trilha e 
2 bytes por setor, com uma memória 
livre de aproximadamente 175 K, ou se- 
ja, igual à formatação do Sistema 700. 






om este sofisticado modelo do 

CP 500, o usuário terá à sua dis- 
posição a maior biblioteca de software 
disponível no mercado, podendo ope- 
rar com os programas da linha do 
CP 500, do SOO8 (CP/M), do Sistema. 
700 e do Super 700, que vão desde so 
fisticados editores de textos e planilhas 
eletrônicas a programas de contabilida- 
de geral, folhas de pagamento, crediá. 
rio, controle de estoque, mala direta 
com editor de textos, controle do exigi- 
vel/disponível, controle de projetos, 
planejamento e controle de produção 
com orçamento, ativo fixo, controle de 
custos e estoque para confecções, con- 
trole de reservas de hotéis, sistema de 
videoclubes, programas específicos pa- 
ra agricultura, engenharia, medicina, 
educação ou qualquer outra área pro- 
fissional. Na página Software Houses, 
uma seleção de programas compatíveis 
com o SO0O8. 








O desenvolvimento tecnológico 
dos equipamentos da CP Computa- 
dores Pessoais tem como objetivo so- 
lucionar os problemas de todos os 
seus usuários, beneficiando-os com 
as mais eficientes utilizações da com- 
putação. 


Foro pLiNiO gonGEs 





ACESSÓRIOS CP: A INTEGRAÇÃO NO MERCADO 


Neste sentido, a empresa também 
está lançando a mais completa linha 
de acessórios, visando a integração 
dos quase 100 000 usuários de com- 
putadores pessoais de tecnologia 
Prológica, com outros equipamen- 
tos disponíveis no mercado: 

* Cabos de Ligação CP 500 para 
Printers Paralelas; 


* Cabos de Ligação CP 300 para 
Printers Paralelas, 

* Cabos de Ligação P 500 para 
equipamentos Apple, 

* Cabos de Ligação P 500 para 
equipamentos IBM PC, 

* Cabos para Gravador /CP 200, 

* Cabos para Gravador/CP 300, 
400 e 500, 

* Cabos de Antena para 
CP 200, 300 e 400, 

* Cabos de Alimentação para 
CP 500, P 500 e P 720, 

* Cabos de Ligação CP 500 para 
P 500, 

» Cabosde Ligação Modem para In- 
terface RS 232C (Videotexto), 

« Fitas Prosoft para CP 2008, 

* Fitas Prosoft para CP 300 e 
CP 500, 

* Fitas Prosoft para CP 400, 

* Capas Protetoras para CP 200 e 
CP 300, 

* Capas Protetoras para CP 400, 

* Capas Protetoras para CP 500 e 

* Capas Protetoras para P 500. 
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Daniel Wajngarten, estudante de 
São Paulo, enviou o seguinte comando 
POKE: 

Como bloquear o List do CP 400 
COLOR: 


POKE 383,158 (para bloquear) 
POKE 383,0 (para voltar ao normal) 


Luis Carlos Medina, engenheiro de 
São Paulo, mandou a sua coleção de co- 
mandos POKE: 


POKE 65495,0 


Aumenta a velocidade de todos os 
comandos ou funções. Não é compati- 
vel com sistema em disco. 

Não pode ser usado durante leitura 
ou gravação de programas ou dados em 
fita cassete, 


POKE 654940 | 


Retorna para normal após utilizar o 
comando POKE 65495,0. 





Ex 
PROGRAMA | 
10 FORI = 1 TO 10000 
20A=A+1 
30 NEXT | 
40 PRINT A 
PROGRAMA 2 


5 POKE 65495,0 
10 FOR I = 1 TO 10000 


40 PRINT A 
50 POKE 65494,0 
Note que o mesmo programa utili- 
zando a instrução POKE 35495,0 tem 
menor tempo de processamento. 
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través do comando POKE você tem várias possibilidades 





de software em seu computador pessoal. 





Neste número, selecionamos várias dicas destes comandos 





enviadas pelos usuários membros do CLUBE CP'S. 





Atenção! Estas dicas foram testadas e aprovadas 





pela CP Computadores Pessoais. 








[ POKE 65497,0. E 


[ POKE 359,128. 





Possibilita que a velocidade dos co- 
mandos ou funções seja mais rápida que 
ao utilizar POKE 65495,0. 

Não pode ser utilizado durante lei- 
tura ou gravação de programas ou da- 
dos em fita casser 

Desabilita a emissão de dados no 
vídeo. 


POKE 6549) 





Produz diferentes caracteres gráfi- 
cos, para diferentes teclas. Não compa- 
tível com disco. 


'POKE 359.126. ae 


Retorna ao normal após POKE 
359,128. 

Este comando, embora apareça co- 
mo caractere gráfico, será executado. 





Retorna para o modo normal depois POKE 359,255. 
de utilizar POKE 65497,0. Inibe o teclado. 
Ex: 
PROGRAMA 3 pone aspira 


5 POKE 65497,0 

10 FOR | = 1 TO 10000 
20A=A+1 

30 NEXT | 

40 POKE 54496,0 

50 PRINT A 


Note que este programa demorará 
menos tempo de execução que os ante- 
riores. 

Observe que, apesar de o vídeo ““de- 
saparecer” durante a execução dos cál- 
culos, estessão realizados normalmen- 
tee os dados são apresentados logo que 
o comando POKE 65496,0 é executado. 


POKE 


Mensagem de tela mais lenta. Não 
compatível com disco. 


POKE 359,0. 


Retorna ao modo normal depois de 
se utilizar POKE 359,60. Impossibilida- 
de de E/S em disco. 





























Retorna ao modo normal após 
POKE 359,255. 


Classificados 
e Correspondências 


HaroldoS. Ferreira quer trocar pro- 
gramas e revistas para o CP 200. Osin- 
teressados deverão enviar correspon- 
dência para Caixa Postal 81.825 — 
27.500 — Resende — RJ. 


Denis Scheer Timm está querendo se 
corresponder com o usuário Frank, de 
Linhares (ES). No entanto, o Frank não 
deixou endereço aqui no CLUBE, por 
isso vamos publicar o endereço de De- 
nis, para que o nosso companheiro de 
Linhares se comunique com ele, OK? 


Alô, alô, Frank! Escreva para o De- 
nis (Rua Francisco Xavier de Barros, 
114 — 18.100 — Sorocaba — SP). 


ANÁLISE E CRIAÇÃO 
DE UMA MALA DIRETA 
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Consulta ou alteração nos dados do arquivo. 


Luiz Antonio Borba 


No número anterior, nós vimos como controlar a quan- 
tidade de registros que estavam gravados no arquivo; vere- 
mos agora, usando aquele mesmo parâmetro (número de 
registros), como fazer uma consulta ou alteração nos da- 
dos do arquivo. 

Apenas para lembrar, vejamos como começa o programa: 


1O CLEAR 2000:CLS. RESERVA ESPACO DE STRING E APAGA A TELA 

201X%=1 

30 OPEN'R'',1,/ARQUIVOIDAT 110 

40 FIELD 1,2 AS IX$,108 AS 225 

45 FIELD 1,30 AS NOS 40 AS ENS, 13 AS TL$,20 AS CDS,2 AS ESS, 
SASCPS 

50 GETIIX A 

80 1F EOF(1) THEN 70 ELSE 1X = CVIIXS) 

70 CONTINUACAO DO PROGRAMA 


Para fazermos uma alteração ou uma consulta dentro des- 
te nosso arquivo, devemos solicitar ao operador o número 
do registro a ser manipulado. Ao recebermos este número, 
devemos então compará-lo primeiramente com zero; se is- 
to for verdade, o fluxo do programa deve voltar ao menu 
principal, se for falso, devemos efetuar a comparação com 
ovalor da variável IX%. Se o número fornecido for maior 
que IX %, devemos colocar na tela uma mensagem deerro, 
informando ao operador que este registro não existe. Se, 
por outro lado, o número dado pelo operador for menor 
ou igual <(=) a 1X%, basta fazermos um GET com este 
valor. No exemplo abaixo, imaginemos que o menu princi- 
pál tenha iniciado na linha 80: 


800 INPUT"DIGITE O REGISTRO À SER CONSULTADO":R*%. 

S1O1F R$ =0 THEN 80 ELSE 520 

520 1F R$%< =1X% THEN 520 ELSE PRINT"REGISTRO NAO EXISTE. 
REDIGITE":GOTO 500. 

530 GET 1,8º 











Neste instante devemos colocar os dados deste registro 
na tela, para que o operador possa consultá-los. Será ne- 
cessário colocar também ao lado de cada dado (nome, en- 
dereço etc.) um número, para que, através deste, o opera- 
dor possa fazer aalteração desejada. Vamos ver como fica- 
ria a tela: 


TELA DE CONSULTA! ALTERACAO 


(1) NOME 

FULANO DE TAL 

(2) ENDERECO 

RUA DAS CAMELIAS 1234 APTO 12 

(8) FONE: (011) 251-3829 (4) CEP: 04517 

(5) CIDADE: SAO PAULO (6) ESTADO: SP 
4778" DESEJA ALTERAR (SINY? 


Este éapenas um exemplo que você pode usar para mon- 
tar a sua tela de consulta. O número que aparece emre as- 
pas na última linha da tela é o endereço para ser usado com 
o comando PRINT; que poderia ser usado da seguinte 
maneira: 


800 PRINTGS77E, DESEJA ALTERAR (S/N)":INPUT ALS 
BI0JF ALS= "Nº THEN 500 ELSE 620 


No programa, devemos testar agora se o valor de ALS 
éiguala “S” ou “Nº. Se for igual a “N”, devemos voltar 
o fluxo do programa para uma nova entrada de número de 
registro; se for igual a ““S”, devemos proceder à alteração. 

Para proceder à alteração, devemos criar uma rotina, que 
coloque no mesmo endereço de tela (9778) a seguinte men- 
sagem: QUAL ITEM DESEJA ALTERAR (1 a 6)?; veja- 
mos como ficaria isto no programa: 


620 PRINT G9778,"QUAL ITEM DESEJA ALTERAR (1 6)"; 
630 INPUT AL Sé 

820 ON AL GOTO 700,800,900,1000,1100.1200. 

850 GOTO 820 


Como o comando ON ... GOTO desvia o programa em 
função do valor de AL%, se AL% for menor que | oumaior 
que6, o fluxo irá diretamente para a linha 650 onde o man- 
damos de volta à linha 620 para que o operador digite o va- 
lorcorreto. Tudo isto sem necessidade deusaro comando IF. 

No próximo número veremos como fazer e gravar estas 
alterações no nosso arquivo. 


GERAÇÃO PROLÓGICA 








ESTE SUPLEMENTO É PARTE INTEGRANTE DA REVISTA GERAÇÃO PROLÓGICA Nº13. NÃO PODE SER VENDIDO SEPARADAMENTE 
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ÍNDICE 


1. Akernaak, um desafio à sua inteligência e imaginação. 
Um jogo de mistérios e situações fantásticas que você mes- 
mo deverá construir a partir de dados armazenados em seu 


computador CP 500 ou CP 300 . .2,3,4,5e6 








2. Controle Bancário. 
O software ideal para vos 





squecer os problemas com sua 





movimentação bancária. Para o CP 400 COLOR .. es 
3. Aterrissagem Lunar. 

Prove sua capacidade motora, perspicácia e agilidade com 

mais este jogo para seu CP 200 . eeniçõeds setasatoce 8 





— JOGO 


Akernaak, um desafio 
a sua inteligência e imaginação. 


CP 500 ou 300 48 Kb RAM 


Akernaak não é jogo deimagens on- 
de você tem que destruir mecanicamen- 
te figuras geométricas. Não! Akernaak 
é um jogo de mistérios e situações que 
você terá que construir. Como se fosse 
um livro onde os personagens criassem 
vida própria o escritor não tivesse mais 
controle sobre eles. 


A história começa quando você che- 
ga em casa e percebe que entrou num 
mundo fantástico, controlado pelo Al- 
tar de Akernaak. Todos os nossos 
monstros e fantasias perdidas estão lá, 
escondidas atrás das portas, no escuro 
da despensa, nos corredores, nas som- 
bras da biblioteca ou do gramado. 
Ogros, duendes, magos, feiticeiros, ti- 
gres, fadas e guerreiros passeiam pela 
casa. Se vocênão tiver medo, poderá en- 
contrar várias armas de proteção, de- 


fesa e ataque espalhadas pelos 
cômodos. 

A sua história poderá ter um final 
inesperado, dependendo de sua capaci- 
dade de luta, descobertas e associação 
de situações pois para cada inimigo há 
umaarma adequada. O que você pode- 
rá fazer com um cetro de prata ou um 
número mágico? Em que guerreiro con- 
fiar? Como, enfim, libertar sua casa do 
poder fantástico de Akernaak? Para es- 
crever esta história, peça ajuda ao seu 
computador pessoal: ele lhe dará pala- 
vras-chave para o desenrolar da histó- 
ria. Mas aqui vai um conselho de quem 
já lutou muito com o misterioso Aker- 
cuidado com a area e como cam- 
Pá o entanto, se eles forem ine- 
vitáveis em sua imaginação, não se es- 
queça nunca da chave, da capa mágica 
edoespelho, pois estes objetos poderão 









lhe salvar a vida na luta contra os feiti- 
ceiros. 

Mas, talvez, você nem chegue a lu- 
tar contra um feiticeiro. Talvez um 
duende o mate logo na entrada da casa 
ou um tigre o fira mortalmente em seu 
quarto, pois você não pegou nenhuma 
arma pelo caminho. Mas, talvez, você 
consiga escrever sua história com um fi- 
nal feliz: a libertação de sua casa do po- 
der de Akernaak. Quem pode saber? 
Afinal cada história é uma história. 

Digite corretamente a listagem em 
linguagem Basic e “chame” Akernaak, 
Enquanto o computador “procura” o 
programa, não se preocupe se lhe pare- 
cer ouvir uma voz grave murmurando: 
“Você não deveria ter entrado aqui, po- 
bremortal...” É tudo imaginação! No 
entanto, por precaução, tome cuidado 
com o elfo que está no corredor... 


FD(N,0)=D(N, 1)0RD(N,0)=NORD(N 


LO Cet ese ee 
20 * Al * 
30 'x C.P. COMPUT. PESSOAIS + 
“o '* CP 300 / CP 500 * 
DO CITE 
60 RANDOM:CLS:CLEARZO00 

70 DEFINTB-Z:DEFSTRA:DIMMA(3O) ,FP( 


30), VOCÊ(14) ,0BI$(30) ,LOS(19),D(19 
+1),CFA(IO) ,BL(1O) 

80 FORN=0T014:READVOCS(N) :NEXTN:FO 
RN=0T030:READOBIS(N) :NEXTN:FORN=0T 
D19:READLOS(N) :NEXTN 

90 FORN=0TO3O:MA(N)=RND(15)-1:NEXT 
N:FORN=15TOL9:D(N,0)=: 
NEXTN:D(16,0)=RND(15)- 
D(15)-1 

100 FORN=24T030:MA(N) 
Z)=S:MA(16)=1. 
MA(4)=15:MA(6 6:K=RND(Z)+14:MA(7 
)=-=1:MA(11)=K:MA(3)=31-K:MA(IZ)=—1 
IMA(17)=-12MA(Z27)=19:MA(7)=18:MA(Z 
8)=18 

110 FORN=OTOLO:READEL (N):NEXTN 

120 VE$="VOCE ESTA” ":VOS="VOCE OU 
VE 

130 FORN=0TO1L4 























140 D(N,0)=RND(15)-1:D(N,;1)=RND(1S 
2 





=NTHENÍ4O ELSENEXTN 

150 DATA FUJA;LUTE, PEGUE SAIA, AJUD 
A,FALE, ABRA, ENTRE sLISTE, TOQUE, DESC 
ANSE, DESISTA, ,» 

160 DATA A ESPADA, ESCUDO", “ LIVR 
O",A CAPA, DIAMANTE," ANEL!,“ ES 
PELHO"," PERGAMINHO" ,A MOEDA DE OU 
RO,A LANTERNA,A FLAUTA," ELMO" ,A 6 
ARRAFA DE VINHO," CETRO DE PRATA! , 
A CHAVE,A ARCA;A ESTATUA;A PASSAGE 
My" ALTAR DE AKERNARK'!,A ESFERA DO 
S ELFOS 

170 DATA " DUENDE"," OGRO"," TIGRE 
"1 ELFO“," PITON"," MAGO“, " GUERR 
EIRO PKERNARK",“ FEITICEIRO DO FOG 
O", MESTRE-FEITICEIRO"," ASTERION 
"sy" DRAGAO! 

180 DATA A ENTRADA DA CASA,O HALL, 
O CORREDOR;A ESCADA;O QUARTO 

190 DATA A GARAGEM;A SALA,O SALAO 
DE JOGOS,A BIBLIOTECA,A PORTA DOS 
FUNDOS 

200 DATA A DESPENSA,A COZINHA,O BA 
NHEIRD,O GRAMADO,O MURO 

210 DATA A ARCA,A PASSAGEM SECRETA 
+D CASTELO VERMELHO,O DIAMANTE ,O C 
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RMPO ZERO 

220 DATA 3,6,7,1,6,2,6,3,3,2,3 

230 PRINTSTRING$ (640; a 

240 PRINTTAB(2Z0);"A CASA DE AKERNA 





ET 
250 PRINTSTRING$(60,"=") 
260 PRINT"VOCE VOLTOU PARA CASA AP 


OS UM DIA DE TRABALHO. 

RO CHEGAR NA ENTRADA DA CASA; FOREM 
+ VOCE SENTIU QUE TUDO SE 

TORCIA “A SUA VOLTA. 

ERA UMA BARREIRA PKERNARK. ««" 

270 PRINT"OS ADORADORES DE AKERNAR 
K TOMARAM POSSE DE SUR CASA 

E O ISOLARAM DO UNIVERSO. 

280 PRINT"QUANDO VOCE NAO SOUBER O 
QUE FAZER, INTRODUZA “AJUDA!” 

290 P=0 

300 PRINTVES: “N“;LOSCP) 

310 FE=0:FORN=0TO3O: IFMACN) ()PTHEN 
330 ELSEIFNOTFETHENPRINT"AQUI HA” 
EtpsPE=-L 

320 PRINT"UM" FOBISCN) Gt tz 

330 NEXTN: IFFETHENPRINTCHRS (8) 

340 IFD(P,0)=-1DRD(P,1)=-1THENS6O 
350 PRINT"VOCE PODE SE MOVER PARA 
";LOS(D(P,0))3" OU PARA “FLOS(D(P, 
19) 

360 IFCF(-3THENPRINTVES: : IFCF(-6TH 
ENPRINT'"FERIDO"ELSEPRINT"CANSADO“E 
LSEIFCF)LTHENPRINTVES; "SUPER-RESIS 
TENTE! 

370 INPUT AsFORN=OTOL4: IFMIDS(LOS( 
N),3/LEN(A))=ATHEN44O  ELSENEXTN 
380 FORN=0TO14: IFVDCS(N) ()ATHENNEX 
TN:BOTO400 

390 ON N+i GOTOLO6O 

400 ,5S0 1610 ,1230 
11010 +1140 2230 

400 PRINT'NAO ENTENDI ISTO" :G0T037 
9 

“10 * 
“zo + 

“30 * 
440 IFFB)OTHEN4SO 

450 IFD(P,0)=NORD(P,1)=NTHENP=NELS 
E490 

460 IFFS)OTHENMA(FS)=P:FS=0 

470 GOTOIS6O 

480 N=FB:PRINT"O";OBIS(N):" PULA S 
OBRE VOCE!" :GOSUBÍSSO :GOTOLS60 
490 * 

500 PRINT"NAD HA” PASSAGEM PARA “; 
LOS CN) 

510 GOTOIS6O 

sao * 
s30 * 

são * 


1940 4790 si 
s1480 ,870 


=MOVIMENTACAO= 











=AJUDA 
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550 PRINT"O SEU OBJETIVO E” LIBERT 
AR SUR CASA DOS AKERNARKEN 

PARA SE MOVER USE O NOME DO LOCAL 
PARA ONDE QUISER IR-EX: 


“GARAGEM =! 

560 PRINT"SEU VOCABULARIO E':";:FO 
RN=0T014:PRINTVOCS(N) 5", "3: NEXTNEP 
RINT 

570 GOTOiS6o 

seo * 

590 “=: =FALE 





600 * 

610 INPUT"O QUE":A:PRIN 
FIFA="AKON"THEN660 

620 IFVAL(A)()OTHENIFVAL (A)=RNTHEN 
RN=0:PRINTVE$: "SUPER RESISTENTE PO 
R ALGUM TEMPO": CF=CF+RND(4)+5:GOTO 
1560 ELSEPRINT"NAO DIGA QUALQUER N 
UMERO NUMA CASA DE AKERNAAK! ":CF=C 
F-S:G0TOLS6O 

630 IFA=PM$ANDMA(30)=PTHENZZ00 

640 PRINT"NADA ACONTECE..." 

650 GOTOIS6O 

660 IFRND(4))FATHENFA=FA+1:GOTO750 
670 FA=FA+1:IFRND(3)=ZTHEN7ZO 

680 PRINT" 

A BARREIRA SOFREU UMA SATURACAO. « « 


voappriaa 


O UNIVERSO PODERIA TER SIDO DESTRU 
IDO COM ESSE USO 

INDISCRIMINADO DE PALAVRAS MAGICAS 
«FELIZMENTE SO” VOCE SOFREU" 

690 PRINT"A CONSEQUENCIA DE SUA IM 
PRUDENCIA: 

SURGE UM DOS SETE ASTERIONS..." 
700 MA(Z9)=P:BLA(9)=8 

710 GOTO1560 

720 PRINT" 

R PALAVRA “AKON” ORIGINDU-SE NA PR 
IMEIRA BATALHA ENTRE AKERNARK 

E AS FORCAS DO BEM CHEFIADAS POR W 
ORIEL-AO PERCEBER QUE A 

BATALHA NAO TERMINARIA,MORIEL PRON 
UNCIOU-A CINCO VEZES.O CAOS 

GERADO DEU ORIGEM AO UNIVERSO." 
730 PRINT"DECIDIRAM ENTRO QUE ESTA 
PALAVRA SO” SERIA DITA NOVAMENTE 
NO FIM DOS TEMPOS..." 

740 PRINT"VOCE DESTRUIU O UNIVERSO 

“:G0T02270 

750 D(P,0)=RND(15)-1:D(P,1)=RND(1iS 
)-12IFD(P,0)=D(P,1)0RD(P,0)=PORD(P 
+1)=PTHEN7SO ELSEPRINT"VOCE CONSE 
GUIU TORCER A BARREIRA NESTE PONTO 
":G0T01560 

760 * 

ARO: É 
780 * 











=PEGUE 


790 INPUT“O QUE"; A:FORN=0TO3O:GOSU 
B2220 :IFEXTHENSZO ELSENEXTN 

800 GOTO9SO 

sio GOTOis6o 

820 IFN)14THENIFN) L9THENPRINTVES: “ 
DOIDO OU VOCE NAO SABE O QUE E” UM 
"30BJ$(N)3"7":GOTOLS6O ELSEPRINT"V 
OCE NAO PODE CARREGAR UM" ;OBIS(N): 
G0TOiS60 

830 FP(N)=-12:MA(N)=-1:G0TOB7O 

840 * 
8so *=: 
seo * 

870 FE=0:FORN=0TOL4: IFNOTFP(N)THEN 
890 ELSEIFNOTFE THENPRINTVES; "LEV 
ANDO: ";:FE=-1 

880 PRINT"UM";OBJ$(N)3"s,ts 

890 NEXTN: IFFETHENPRINTCHRS (2) ELSE 
PRINT"VOCE NAD CARREGA NADA" 

900 GoTO1S6O 





=L ISTE 





910 

920 '= =LUTE 

930 * 

940 INPUT"COM QUEM" ;A:FORN=0TO3O:6 
OSUB2220 : IFEXTHEN960 ELSENEXTN 
950 PRINT"NAO HA” ";A;" AQUI":GOTO 
1560 


960 IFN(ZOTHENPRINT"VOCE QUER LUTA 
R CONTRA UM" :0BJ$(N);"2727":GOTOLS6 
o 

970 CB=2:GOSUB18S0 :GOTOLS60O 


=TOQUE 


1010 IFNOTFP(10)THENPRINT"VOCE NAO 
LEVA NENHWM INSTRUMENTO“ELSEPRINT 
"VOCE COMECA A TOCAR A FLAUTA" :FT= 
il 
i1ozo 
1030 
1040 “==: 
1050 
1060 INPUT"PARA ONDE";A:FORN=0TOL9 
2 IFHIDS(LOS(N) , 3, LENCA) ) ()RTHENNEX 
TN:PRINT"O QUE E' ISSO?":GOTOÍO6O E 
LSEIFN)14THEN1490 

1070 IFFB=OTHEN450 

1080 IFRND(S)=3THENCB=-2:N=| 
T"VOCE TROPECA E O";OBIS(N); 


GoTOiseo 


===FUJA 






oaT 


RCA PELAS COSTAS":GOSUBiSSO :GOTO1 
590 
1090 IFRND(3)<3THENPRINT"D";OBJS(F 


B):" O SEGUE":FS=FB:FB=0:G0T0450 
1100 FB=0:G0T0O450 

1110 * 
1120 “=: 
1130 * 
1140 FE=0:PRINT"VOC] 





=DESCANSE 
"53 IFFP(O)THE 


4 





NFP(0)=0:MA(O)=P:FE=-1 








1150 IFFP(1)THENFP(1)=0:MA(1)=P:FE 
1 

1160 IFFP(11)THENFP(11)=0:MA(11)=P 

:FE=-1 

1170 IFFETHENPRINT" LARGOU SUAS AR 

MAS E "5 


1180 PRINT"ESTA” DESCANSANDO": 
F+2: IFCF )OTHENCF=0 
1190 GOTOLSGO 
1200 * 
1210 '=: 
1220 * 
1230 INPUT"O QUE“;A:FORN=0TO3O:GOS 
UB2220 : IFNOTEXTHENNEXTN:GOTO950 
ELSEIFN()1STHEN1250 ELSEIFFP(14)TH 
ENPRINT"VOCE ABRIU A ARCA“; :FAí=-1 
:IFRND(3)=2THENPRINT" E FOI SUGADO 
POR ELA.SUA CHAVE ESTA” FORA.':FA 
4=0:P=15:FP(14)=0:MA(14)=RND(15)-1 
ELSEPRINTELSE1300 &h 
1240 FB=0:G0TOL560 
1250 IFN=2THENIFNOTFP (2) THENPRINT! 
O LIVRO"; :GOTO1290 ELSE1310 
1260 IFN=12THENIFNOTFP(12)THENPRIN 
T"A GARRAFA"; :GOTOL290 ELSEFG=-1:P 
RINT"A GARRAFA ESTA” ABERTA":GOTOL 
sé 
1270 IFN=7THENIFNOTFP(7)THENPRINT" 
O PERGAMINHO"; :GOT01290 ELSEGOSUBZ 
280 :PM$=A:GOSUBZ280 :PM$=PMS+AZPR 
INT"VOCE LE: 
-A PALAVRA SECRETA E "sPMS:PRINT! 
ELE DESAPARECE... ":FP(7)=0:GOTOLS6 
5) 


CF=C 





=ABRA 









1280 PRINT"VOCE NAO PODE ABRIR UM" 
30BJ$(N):GOTOLS6O 


1290 PRINT" NAO ESTA” COM VOCE":GO 
TOiS60 

1300 PRINT"A ARCA ESTA” TRANCADA": 
GoTO1S60 


1310 FP(Z)=0:MA(2Z)=RND(20)-1:PRINT 
“ANTES QUE O LIVRO DESAPARECA DE 5 
UAS MAOS, VOCE LE:":ONRND(S)GOTOL3Z 
O “,44700,4750, 4800 4850 





1320 RN=RND(100):PRINT"-O NUMERO M 
AGICO E':";RN:GOTOÍS6O 
1330 PRINT" --PORQUE OS MAGOS DET 





ESTAM VINHO." :GOTOiS6O 

1340 D(15,0)=RND(15)-1:PRINT"-HA* 
UMA PASSAGEM DA ARCA PARA “ILOS(D( 
15,0)):60T01560 

1350 PRINT"-*AKON” E” A PALAVRA DA 
S DIRECOES":GOTOiS60 

1360 PRINT" --D PERGAMINHO QUE ES 
TA” DENTRO DO DIAMANTE TEM O SEGRE 
DO" :GOTOLS6O 

1370 * 
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1380 '= 
1390 * 
1400 IFP()1STHENI420 ELSEIFRND(3)= 
2THENMA(15)=19:PRINT“ERA UMA EMBOS 
CADA- ELSEIFRND(S) (3STHENMA(15)=R 
ND(15)-1:PRINT"A ARCA SE MOVEL" 


SAIA 








1410 FB: =MA(1S):GOTOLS6O 

1420 IFP=18THENF=MA(4):FB=0:GOTOIS 
60 

1430 * 


1440 PRINT"O QUE VOCE QUER DIZER C 
OM “SAIR'?":GOTOiS6O 

1450 * 
1460 '= 
1470 * 
1480 INPUT"ONDE";A:FORN=0TOL9:IFA( 
)MIDS(LOS(N) 43, LEN(A))THENNEXTN:GO 
TO950 

1490 IFN(ISTHEN440 ELSEIFN=1STHEN 
IFFAXTHENFB=0:P=N:GOTOÍS60 ELSE130 
o 

1500 IFN=1STHENFP (4)=0:MA(4)=P:FB= 
0:P=N:GOTO1S60 

1510 IFN=16THENFB=0:P=N:GOTO1560 
1520 PRINT"VOCE NAO PODE ENTRAR N” 
3LOS(N):GOTOÍS6O 





ENTRE 


1530 * 

1540 '======ACONTECIMENTOS POSSIVE 
IS=s===== 

1550 * 


1560 FORN=Z0TO3O:IFMA(N)()PTHENISS 
O ELSEIFRND(10))BLA(N-20)THENISSO 
1570 PRINT"O";0BJ$(N):" O ATACA!" 
CB=0:GOSUBiSSo 

1580 NEXTN 

1590 FORN=20TO30:IFFB)OORRND(6)<40 
RMA(N)<OTHEN1620 ELSEK=MA(N) :MA(N) 
=D(MA(N) ,RND(2)-1):IFMA(N)=-1THENM 
A(N)=K:GOTOL6ZO 
1600 IFP=KTHENPRINT" 
RI PARA ";LOS(MA(N)) 
1610 IFMA(N)=PTHENPRINT"UM" FOBIS(N 
)5" APARECE,VINDO D"sLOS(K) 

1620 NEXTN 

1630 IFT)30ANDMA(Z4)=-1THENIFRND(1 
0)=7THENPRINTVOS; “UM GRITO ESTRANH 
DO... !:MA(Z4)=RND(15)-1 

1640 IFTM(1THENIFMA(18)=PANDTM=0TH 
ENTM=RND(30)+20:PRINTVO$:": 

-NAO DEVERIA TER ENTRADO AQUI,MORT 
AL"ELSEELSETM=TM-1: IFTM=OTHENTM=-1 
FPRINTVOS:": 

-DEMOREI A CHEGAR; MORTAL ;MAS AGORA 
VOCE PAGARA” POR TER INVADIDOO SA 
NTURRIO DE AKERNAAK" :MA(Z5)=P:BLZ( 
5)=7 

1650 IFTE)OTHENTE=TE-1: IFTE=OTHENM 
A(O)=RND(Z0)-1 


“ F0BIS(N)5" 
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1460 IFFT)1OOANDMA(Z6)=-1THENIFRND 
(10)=1THENPRINTVOS;": 


-VOCE JA” CAUSOU MUITOS PROBLEMAS; 
VERME - 

SURGE UM GUERREIRO-":MA(Z6)=P:GOTO 
1560 


1670 IFF=MA(19)THENIFRND(3)=1THENP 
RINT“A ESFERA EXPLODE." :S=-&ND(7): 
GOSUB2110 :MA(19)=-1ELSEIFRND(4)=3 
THENPRINT"A ESFERA BRILHA FORTEMEN 
TE..."sP=19 

1680 IFFP=MA(16)ANDNOTFP(13)THENIFR 
ND(7)=STHENPRINTVOS: “3 

-EU,R ESTATURA, SIMBOLO DE ANIK,DOU- 





LHE UM PRESENTE... ":MA(13)=P 
1690 IFMA(Z6)=PANDFP(13)ANDBLA(6)) 
OTHENPRINTVOS ; “3 


-EU,O GUERREIRO DE ANIK;SAUDO O PO 
RTADOR DO CETRO":BLA(6)=0 

1700 IFNOTFGORP( )MA(2Z5)THEN172Z0 EL 

SEPRINTVOS" : 

- FRARAAGH ! NyOK 

O CHEIRO DO VINHO ";:IFRND(4)=3THE 

NPRINT"ENFURECE O MAGO.":BLY(S)=9E 

LSEPRINT"ENFRAQUECE O MAGO. ":CFA(S 
)=CF%(S)-4 

1710 PRINT"ELE QUEBRA SU“:0BJ$(12) 
:FP(12)=0:F6=0 

1720 IFT)60RNDMA(17)=-1THENIFRND(S 
)=1THENMA(17)=RND(15)-1 

1730 IFPT)2Z00ANDMA(28)=1S8THENIFRND 
(8)=3THENPRINTVOS: ": 

-ATE” AGORA VOCE ENFRENTOU OS APRE 
NDIZES,MEU CARO... ":BLA(B)=7:MA(ZS 
)=P 

1740 IFFP(6)ANDMA(Z8)=PTHENFRINT'S 
EU ESPELHO DRENA UM POUCO DA MAGIA 
DO MESTRE":CF%(S)=CFA(S)-Z 

1750 IFP=14THENIFRND(10)=STHENPRIN 
T"DO ALTO DO MURO SURGE UMA LUZ CI 
NZA- :P=15:FB=0 

1760 IFMA(17)()-1THENIFRND(10)=6TH 
ENPRINTVOS: 
=" 30BJ$(17) ESTA N";LOS(MA(17)) 
1770 IFRN=0ANDP=7THENIFRND(20)=2TH 
ENRN=RND(100):PRINT"VOCE LE NUMA C 

ARTA DE BARALHO:O NO. MAGICO E'";R 
N 

1780 IFCF(OTHENCF=CF+1:IFFP(11)THE 

NIFCF(<-1THENPRINT"VOCE SE RECUPERA 
MAIS DEPRESSA,GRACAS A SEU ELMO M 

AGICO":CF=CF+Z 

1790 FT=0 

1800 T=T+1:IFT/10=INT(T/10)THENPRI 
NT"TEMPO =";T; "MINUTOS" 

1810 G0TO300 

1820 * 
1830 *=: 




















SUB DE LUTA 





1540 

1850 IFN=OTHENZO90 ELSEFB=I 

ENPRINTVES: “TOCANDO A FLAUTA": 

D18S0 ELSEPRINT“VOCE O ATACA COM “ 

IFFP(0)THENPRINT"SUA ESPADA“;:CB 
=CB+ZELSEPRINT"SOCOS E PONTAPES 
1860 IFFF(1)THENCB=CB+1L:PRINT" E S 
E DEFENDE COM SEU ESCUDO"ELSEPRINT 
1870-IFFP(3)ANDN)2Z6THENPRINT"SUA C 
RPA O PROTEGE DOS GOLFES MAGICOS M 

RIS 

FORTES DO" :OBJS(N):CB=CB+(N-Z26)*2 
1880 ONN-19G0T01890 ,1920 ,1930 ,1 
950 ,1990 ,Z010 ,2030 ,2040 ,2060 
«2070 ,2080 

1890 IFRND(4)=3THENPRINT"ELE SE AS 

SUSTA COM SUA FURIA E 

DESAPARECE EM MEIO A UMA FUMACA VE 

RDE- =QELSEÍ9IO 

1900 ND(15)-127IFK()MA(Z0) THENMA 
(20)=K:RETURNELSE 1900 

1910 60702090 

1920 GO0TO2090 

1930 IFFTTHENPRINT"ELE FICA ENFEIT 
ICADO COM A EXOTICA MUSICA QUE SAI 
DE 

SUR FLAUTA NIDDUN E SE ACALMA.":FB 

=0: RETURN 

1940 GOTOZOGO 

1950 IFRND(4)=Z2THENPRINT"ELE GESTI 
CULA E TUDO ESCURECE MOMENTANEAMEN 

TE“ZIFFP(9)THENCB=CB-2Z:PRINT "MESMO 
COM SUA LANTERNA E” DIFICIL ENXER 

GAR"“ELSECB=CB-SELSE1970 

1960 GOTO2Z090 

1970 * 

1980 GOTOZ090 

1990 IFRND(3)=1THENPRINT"O PITON O 
ENCARA, TENTANDO ROUBAR SUA ENERGI 
A": CF=CF-RND(3) RETURN 

2000 GOTOZ090 

2010 IFRND(S)=3THENPRINT"ELE FAZ U 
M GESTO ESTRANHO.-":IFFP(O)THENPRIN 

T“SUA ESPADA DERRETE... “zFP(0)=0:T 
E=RND(5)+10:RETURNELSEPRINT"VOCE S 

ENTE TONTURAS.. . B=CB-Z 

Zozo GOTOZOGO 

2030 G0TO2090 

2040 IFRND(4)=4THEND(F,0)=-1:D(P,1 
)=-1:MA(27)=RND(15)-1:PRINTVOS: "A 

GARGALHADA DO"; OBJS(N)": 

+ TAL, VOCE ME SOLTOU,MAS CONTRUI 

U SUR PRISAO... 

ELE VAI PARA " 
TURN 

Z050 60702090 

Z060 EDTOZ090 

ZO70 GDTOZ090 


















LOS (MA(Z7)):FB=0:RE 
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z080 G0TOZ090 
Z090 S=CF-CFY(N-20)+CE-7/50-(N-20) 
*Z+RND(S) 

2100 IFS(-7THENPRINT"INFELIZMENTE, 
MEU CARO, VOCE MORRE... ":GOTOZ270 

2110 IFS(-4THENPRINT"VOCE FOI ATIN 
GIDO SERIAMENTE":CF=CF-4:GOTOZ210 

2120 IFS(ITHENPRINT“VOCE FOI ATING 
IDO“:CF=CF-2:G0T02210 

2130 FB=0 

2140 IFS(4THENPRINT"VOCE O ATINGIU 
"3CF%(N-20)=CFA(N-20)-1:60TOZ210 
2150 IFS(7THENPRINT"VOCE O ATINGIU 
GRAVEMENTE": CFZ(N-20)=CF%(N-20)-3 
:G0TOZ210 

2160 PRINT“VOCE O MATOU" :MA(N)=-2: 
PT=(N-19)*Z0+FT 

2170 IFN=23THENIFRND(3)=1THENPRINT 
"UMA LUZ ESTRANHA SURGE-O ELFO EST 

A” RESSUCITADO- 

E FURIOSO !!!":CF%(3)=5:MA(N)=PELS 
EPRINT"NO LUGAR DO CORPO DO ELFO A 
PARECE UMA ESFERA" :MA(19)=P 

2180 IFN=280RN=29THENPRINT" 

VOCE CAI INCONSCIENTE... 

AD ACORDAR VOCE PERCEBE QUE NAO ES 
TA” MAIS NºILOS(P)3". 

“svos": 

-QUEM QUSA DESAFIAR YDYRK,0 DRAGAO 
+ATACANDO SEUS SERVOS?“ :P=17:MA(3O 
)=17 

2190 IFN()30THENZ2IO 

2200 PRINT"O DRAGAO SOME NUM VORTI 
CE... 

SUA CASA EST 
VOCE VENCEU 
2210 RETURN 
2220 EX=(MIDS$(OBIS(N),ZsLENCA))=A0 
RMIDSC(OBIS(N) + 3, LEN(A) )=A)AND(MA(N 
)=PORFF(N) ) 3 RETURN 

2230 INPUT"VOCE QUER DESISTIR DO 3 
GO" A: IFA="SIM"THENZ270 ELSELS60 
2240 * 
z250 * 
2260 * 
2270 PT=PT-FP(4)*100-FP(5)*30-FP(S 
)*15-FP(13)*50:PRINT" 

O JOGO TERMINOU.VOCE FEZ";PT;"PONT 

0S.": INPUT"VOCE QUER RECOMECAR";A: 
IFE="SIM"THENRUNELSEEND 

2280 B=CHRS(RND(3)+65)+CHES (61+RND 
(3) 44) +CHR$ (73+RND (5) ) +CHR$ (61+RND 
(3)*4)+CHES (75+RND(3)) RETURN 











* LIVRE DA BARREIRA. 
:60T0Z2270 

















=FIM DE JOGO 
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SOFTWARE uu 


Controle Bancário 


“CP 400 COLOR — 16 ou 64Kb RAM 


Muitas pessoas consideram a confe- 
rência dos movimentos bancários uma 
tarefa irritante e sempre propensa a er- 
ros. Algumas desistem na primeira vez 
que tentam verificar as informações 
contidas em seus extratos. No entanto, 
é bom lembrar que muitas vezes o ban- 
co comete erros de leitura de quantias 
especificadas em cheques (principal- 
mente se sua caligrafia não estiver legi- 
vel) ou você mesmo transcreve quantias 
incorretas para seu talão. 

Mas, felizmente, você possuium CP 


400, com capacidade de memória e ar- 
mazenamento de dados, eficiência  agi- 
lidade de informações — capaz de orien- 
tá-lo em todas as etapas do balanço de 
seu talão de cheques e qualquer outro 
movimento bancário. Digite correta- 
mente este programa sobre Controle 
Bancário e esqueça todos os problemas 
dos cheques, extratos etc. 


Principais rotinas 





80-220: inicializam variáveis e apresen- 
tam as primeiras instruções. 





130 - 250; último número de cheque. 
280 - 320: balanço do talão após o últi- 
mo número de cheque. 

330 - lepósitos pendentes. 

450 - 590: cheques pendentes. 

600 - 710: taxas de serviços e avisos de 
débito. 

720: depósitos recentes e avisos de 
crédito. 

730 - 870: cálculo do movimento ban- 
cário e finalização do programa. 

880 - 1000: SUB-ROTINA (depósitos 
recentes). 












MBM 6 DE 


am “x CONTROLE  BANCARIO %* 
30 “x CF-COMPUT. PESSOAIS * 
ua ta cr-uBa * 
SO cammmmnunna E po TO quiet 





GR See Mede DR e 





ee DO 





78 REM: CONTROLE BANCARIO 

89 CLEAR SO:CLS 

98 PRINT" *x CONTROLE BANCARI 
O xx" s PRINT 

100 MC=16 


LO DIM C(MC) 

120 ES="ERRO, RE-ENTER." 

130 PRINT"PRIMEIRAMENTE » COMPARE 

0S NUME-" 

148 PRINT"ROS DE CHEQUES LANCADO 
S EM SEU” 

150 PRINT"EXTRATO, COM OS DE SEU 
TALAO 7” 

160 PRINT"DE CHEQUES." 

1720 FRINT'VERIFIQUE TAMBEM, OS D 
EPOSITOS" 

190 PRINT"QUE ESTAD EM SEU EXTRA 
TO EAN-/" 

190 PRINT"CARIO." 

200 PRINT 

210 PRINT"DIGITE O VALOR TOTAL D 








E SEU 

220 PRINT"EXTRATO BANCARIO:";2IN 

FUT SE 

238 PRINT"AGORA, DIGITE O NUMERO 
DO UL=-7" 


240 PRINT"TIMO CHEQUE LANCADO EM 
SEU EX» 

250 PRINT'TRATO EANCARIO:"; 

268 INPUT LC 

278 L$="FALTA DE ESFACO PARA DAD 

os” 
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286 PRINT 

298 FRINT"QUAL E O VALOR DO SAL 
O BANCA-" 

386 PRINT"RIG INDICADO EM SEI TA 
LAO DEZ” 

316 FRINT"CHEQUES ATE O NUMERGE 
F.C 

320 INFUT"DIGITE O VALORs"sCES 
INT 

330 PRINT"DIGITE A QUANTIA DOS D 
EPOSITOS" 

346 PRINT"ANTERIORES QUE CONSTAM 
EM SEU/" 

356 PRINT 
NUMERO: 

360 PRINT" Xu VLC” xxx MaPRIN 
T"POREM QUE NAO ESTEJA INCLUTDA!M 

370 PRINT"EM SEU EXTRATO EANCARI 





R 





"TALÃO DE CHEQUES ATE O 





0." 
388 A$="PRESSIONE 'T” FARA TERMI 
NAR"ZFRINT A$ 


398 INFUT"DIGITE O VALOR:"2R$: TF 
R$="T" THEN 4uG 

4a IF VALÇR$)28 THEN 4ZG 

4iB PRINT ESzGOTO Sem 

428 ND=ND+1:TD=TD+VAL (R$) 

438 GOTO 396 

44g PRINTºTOTAL =p Tu.PRINT 

4sg FRINT"DIGITE A QUANTIA DOS € 
HEQUES" - 

468 PRINT"EMITIDOS, QUE CONSTAM 
EM SEU" 

476 PRINTºTALAO DE CHEQUES" 

usp PRINT"ATE O NUMERO: xxx NC” 
eee 

498 FRINT"MAS QUE NAO FORAM INCL. 
UIDOS EM” 

598 PRINT'SEU EXTRATO." 


518 
sem 
538 
548 
ssa 
568 


PRINT AS 

INFUT"DIGITE O VALOR:";R$ 

IF R T” THEN 598 

IF VAL(R$)>B THEN 569 

PRINT E$:GOTO sig 
NC=NC+1:C(NC)=VAL (R$): TO=TC+ 





CeNC) 
528 
ssa 
598 





IF NCeMC THEN Sz8 

PRINT L$ 

FRINT"TOTAL ="; TC;PRINT 
FRINTºENTRE COM AS QUANTIAS 
REN-" 


CO NAOHHE" 

786 PRINT" HHHEEHRHNHA CONFERE & 
RHRRSHaRa 

796 PRINT:PRINT"SALDO DO EXTRATO 
EANCARIO +“ 


8988 PRINT"DEPOSITOS NAO REGISTRA 
DOS +" 

818 PRINT"TAXAS DE SERVICO =";SE 
+TD+TS 

8Z8 PRINT:PRINT"SALDO DO TALAG D 
E CHEQUES +" 

838 PRINT"CHEQUES NAO REGISTRADO 
Seu 


10 FRINT"TES AOS SERVICOS PREST 
ADOS E 7m 
428 FRINT"CONTAS PAGAS FELO EANC 
O, QUE 7" 


636 PRINT"FORAM DEEITADAS EM SUR 
CONTA.” 





640 PRINT AS 
650 INFUT"DIGITE O VALOR:";R$ 
660 IF R$="T" THEN Z10 
626 IF VAL(R$)>0 THEN 696 
988 PRINT E$:GOTO 648 
690 NS=NS+1:TS=TS+VAL(R$) 
768 GOTO 658 
718 PRINT"TOTAL ="; TS:PRINT 
“o GOSUE Ba6 
730 W=SE+TD+TS-CE-TC-TR:NI=BES cu) 


748 
754 
uUES 
768 
778 


IF Ux. BOL THEN 778 
W=0:PRINT"O BALANCO DOS CHEQ 
CONFERE!“ 
GOTO 796 
PRINT" SHHATENCAO, 





SEU EALAN 


— JOGO 





846 PRINT"DEPOSITOS RECENTES: 





(o 


E+TC+TR 


85 PRINT:PRINT"DIFERENCA 
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860 PRINT 
878 END 
880 PRINT"DIGITE A QUANTIA DE SE 


us 


DEPO-" 


890 PRINT"SITOS REALIZADOS (FOS 
O CHEQUE" 

990 PRINTUNUMERO xx LC aa 

918 PRINT"QUE CONSTAM EM SEU EXT 
RATO." 


928 
938 
9ua 
958 
968 
978 
988 
998 


PRINT AS 

INFUT"DIGITE O VALOR: "sR$ 
IF R$="T" THEN 996 

IF VAL(R$)20 THEN 970 
PRINT E$:GOTO 928 
NR=NR+1: TR=TR+VAL (R$) 
GoTO 938 

PRINT"TOTAL ="; TREPRINT 


1888 RETURN 


Aterrissagem Lunar 


Neste programa você será o astronauta que terá por mis- 
são descer na Lua. Todo o cuidado é pouco, na medida 
em que a aterrissagem terá que ser perfeita. Preocupe-se 
sempre com o seu combustível, pois se o mesmo terminar 
antes da aterrissagem sua nave cairá e se chocará contra 
as rochas lunáticas. 

Mantenha sempre atual as informações sobre sua alti- 
tute (em metros), velocidade (km/h), combustível (litros) 
e a situação de sua nave, isto é, se ela está descendo ou 
subindo. 

Cuidado nas deslocações, procurando sempre associar 
sua velocidade ao combustível e à altitude, para não ser 
surpreendido. Todos os comandos necessários são dados 
pelo seu computador pessoal. 

Sea sua aterrissagem for perfeita, telefone paraa NASA. 
Você poderá ser o primeiro brasileiro a comprovar que a 
Terra é azul! 
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LO CRT II 
20 “» ATERRISAGEM LUNAR * 
30 “x COMP. PESSORIS * 
“o “x Cr-200 * 
DO Ce e e E a 
60 LET 

70 LET =200-(INT (RND*60)) 

80 LET 200+(INT (RND*350)) 

90 LET T=320+(INT (RND*90)) 

100 CLS 

110 PRINT “ALT= "5INT (E): MTS.M 





120 PRINT AT 0,155 


OMB - 





INT (C) 






"LTS! 
MS GAT Lo Is; Mm: 





Continua no próximo número. 
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CURSOS mu 








LIÇÃO IX 


Ainsirução RESTORE permite que 
um mesmo conjunto de dados definidos 
numa instrução DATA seja usado mais 
de uma vez, No programa a seguir você 
poderá notar esta utilização c o uso do 
valor- | nainstrução DATA para mar- 
car o final do loop. Este recurso é bas- 
tante utilizado em programas que usam 
a instrução READ. 








10 PRINT “PROGRAMA DASOMA 
E DO PRODUTO DE UM 
CONJUNTO DE DADOS” 


110 DATA 3.57, 34,46, 3,23,45,8, — 1 


Ao ser rodado o programa, o com- 
putador lê o primeiro dado, realiza as 
operações que o envolvem, lê o segun- 
doe, assim por diante, até o último va- 
lor. A instrução RESTORE indica ao 
computador que ele deve retornar ao 
começo. Tudo se passa como se existis- 
seum contador para o número de vezes 
quea instrução READ foi usada, avan- 
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sta é a última lição do nosso curso de BASIC. No 





entanto, as possibilidades dessa linguagem não estão 





esgotadas. Há muito que aprender e esperamos que 
estas nove lições publicadas na revista Geração 





Prológica se transformem em ferramentas para um 





aprendizado mais formal e numa introdução para as 





várias utilizações com seu computador pessoal. Neste 





número, conheça a instrução RESTORE. 





Marilena Occhini Siviero 





cando a cada valor lido. Na verdade, a 
instrução RESTORE funciona como o 
reset deste contador, permitindo sem- 


pre uma nova contagem. 


MATRIZES 


Em lições anteriores já trabalhamos 
com variáveis. Estas variáveis tinham 
um nome indicado por uma letra ou por 
uma letra e um número (em alguns com- 
putadores, o nome de uma v; vel po- 
de ser qualquer conjunto de caracteres 
alfanuméricos, desde que o primeiro 
elemento do nome da variável seja uma 
letra). Com estas variáveis podemos rea- 
lizar vários programas, como o exem- 
plo a seguir: 








5 REM ESTE PROGRAMA SOMA 
TRES NUMEROS 


1O INPUT A, B,C 





Agora, suponha que você deseje so- 
mar não três, mas trezentos números. 
Certamente você teria dificuldades em 
inventar trezentos nomes de variáveis e 
teria um trabalho enorme em escrever 
um programa que fizesse isso. Feliz- 
mente dispomos de um recurso. Pode- 
mos escrever este programa usando va- 
riáveis indexadas: A(4) uma letra segui- 
da por um número entre parênteses. 


A letra indica não mais uma única 
variável, mas uma área reservada da 
memória que é definida anteriormente 
pela instrução DIM. O número entre 
parênteses é um indice e serve para di- 
ferenciar as posições da área de memó- 
ria reservada. Assim, A(3) é diferente 
de A($). A instrução DIM (abreviatura 
de DIMENSION) delimita o espaço de 
memória que as variáveis podem ocu- 
par. Por exemplo, no nosso programa 
desejamos somar 300 números; então, 
devemos indicar ao computador para 
reservar na memória 300 elementos. 





5 REM ESTE PROGRAMA SOMA 
300 NUMEROS 
6 DIM A(300) 









ce pode ser uma constante, 
iável ou uma expressão, tanto 
na variável indexada como na instrução 
DIM, desde que sejam inteiras. A área 
reservada pela memória é chamada de 
matriz. No exemplo que demos, a ma- 
triz tem uma única dimensão, porque 
temos um único indice, porém, pode- 
mos ter até cinco indices (dependendo 
do computador), o que dá uma maior 
flexibilidade aos programas. 











MUNDO DA 


YWNFORMATICA 





O Laboratório de Microeletrônica da Escola Politécni- 
está transferindo tecnologia de sistemas de comunica- 
ção via satélite para a indústria nacional, Segundo o pro- 
fessor José Kléber da Cunha Pinto, coordenador da Di 
são de Circuitos Integrados Híbridos do Laboratório, o tra- 
balho baseia-se no desenvolvimento de dois tipos de ampli- 
ficadores, elementos fundamentais nos sistemas. 








computador 
ouve estrelas 


...ora direis ouvir 
estrelas deixou de 
ser coisa de poeta e 
virou função de 
microcomputadores 
no Instituto 
Astronômico e 
Geofísico da USP, 
pois captar ondas 
sonoras emitidas por 
objetos cósmicos é 
agora mais uma 
forma de se 
R estudar galáxias, 
| estrelas ou nuvens 
interestelares. 
E para agilizar 
este trabalho 
foi desenvolvido um 
sistema de 
aeb computação e 
radiotelescópio. 
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na 


COMUNICAÇÃO 
VIA SATÉLITE 


Otrabalho do Laboratório traz diversas vantagens para 
o Brasil: cria tecnologia nacional, treina recursos humanos 
e promove a integração indústria /universidade. Estas pes- 
quisas são financiadas pela Telebrás e os resultados são 
transferidos para a indústria nacional que, por sua vez, for- 
nece equipamentos à Embratel — responsável pelas comu- 
nicações via satélite no Brasil. 


Avanço eletrônico na 


USP 


pesquisas à indústria eletrô- 
nica nacional. 
Segundo o professor João 
Antonio Zuffo, coordenador 
do laboratório, o primeiro 
projeto desenvolverá uma fa- 
mília de osciloscópios digi- 
tais, instrumentos que anali- 
sam sinais eletrônicos. O pro- 
jeto prevê um período de dois 
anos até que os aparelhos es- 
tejam prontos para competir 
no mercado nacional c inter- 
nacional. 





Prof. Zuffo 


O Laboratório de Subsis- 
temas Integráveis da Escola 
Politécnica da USP desenvol- 
ve quatro projetos, com apoio 
da CNPq, Finep e Banco 
Mundial, com o objetivo de 
repassar os resultados das 





POESIA INFORMATIZADA 


ma obra que reúne poesias feitas na década de 70, 
e posteriormente submetidas ao crivo de um soft- 
ware elaborado pelo próprio autor, é a principal 
característica do livro Poesia Informatizada, de Luiz 
Murat. A obra de Murat é moderna e seu trabalho de cria- 
ção inclui o auxilio de um computador na composição de 
versos. Murat é membro da Academia Brasileira de Letras 
e possui PHD em informáti 
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quer micros 
do Brasil 


URS 


suprimentos na MOORE E 


is Ricore: maior empresa de formulários conti- 
o Brasil, entrou no mercado de informática 


ILUSTRAÇÃO EMLIO 


A Secretaria Especial de 
Informática (SEI) confirmou 
que o governo soviético es 
interessado em adquirir no 
Brasil, ao longo dos prós 
mos anos, 70 000 microcom- 
putadores. O Itamaraty rece- 
beu o pedido soviético e o en- 
caminhou à SEI e à Associa- 
ção Brasileira de Computa- 











ção (Abicomp) — entidade 
que reúne a indústria brasilei- 
ra do setor. Para se ter uma 
idéia da importância desse 
possível negócio, o número 
total de microcomputadores 
já fabricados no Brasil é ape- 
nas ligeiramente superior à 
100.000 equipamentos. 





— 


software 
prevê 


CONCORDATA | 


O empresário que tem um microcomputador Sis- 


ano, dos quais 15% vi 





bro de 85. 








tos e das 24 lojas que est 


com uma “solução integral”: lojas especializadas 
capacitadas a atender grandes e pequenos usuá 
rios nas áreas de software, hardware, e 
acessórios e manutenção. Com cinco 
Alegre, Curitiba, São Paulo, Belo Horizonte e Sal. 
vador) e cinco entrepostos, a Moore fa 
turamento total de 90 milhões 


suprimentos, 
lojas (Porto 


prevê um fa- 
de dólares só este 


io da venda de suprimen- 
arão instaladas até dezem- 





Informática 
ajuda excepcionais 


Fazer com que a criança 
excepcional possa desenvol- 
ver seu próprio processo de 
comunicação, trabalhar so2i- 
nha e até se tornar indepen 
dente das pessoas que cuidam 
delaéo principal objetivo do 
uso de computadores na es- 
cola paulista Quero Quero. 
Este projeto, desenvolvi- 
do há dois anos, permite que 
um menino de 15 anos que só 
conseguia piscar os olhos, 
possa hoje acender a luz, es- 
crever eter todos os conheci- 


mentos equivalentes a um 
aluno de terceiro ano prim 
rio. Tudo isto só foi possível 
com o uso do computador. 

Para esta criança desen- 
volver todas estas atividades, 
Moysés Cohen Aronis e Car- 
los Alberto Pulino desenvol- 
veram um software específico 
cadaptaram diversos equipa- 
mentos periféricos num mi- 
crocomputador. Este apara- 
to permite a qualquer crian- 
ça com lesão cerebral apren- 
der a trabalhar. 








tema 600 ou 700 ou um CP 500 modelo M$0 po. 
de realizar ampla análise contábil de balanços e 
balancetes de sua pequena ou média empresa atra. 
Jés do software Indicare, César Abicalafe, criador 

programa, afirma que 





os computadores 
na 


FORD 


ware, 
ou até 


anos de antecedência. 


Mais inf õ 
ia Ormações pelo telefone (041) 223-8510, 





construção 
naval 


O Estaleiro Canexo, no Rio 
de Janeiro, vai automatizar 
seus processos de construção 
naval. Foi aprovado pela Se- 
cretaria Especial de Informáti- 
ca (SEI) o projeto da empre- 
sa para absorção de tecnolo- 
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O usuário, com este soft- 
Passa a ter condições de prever dificuldades 
mesmo concordatas de empresas com dois 





CADICAM 


gia e criação de um sistema 
integrado de computação ele- 
trônica, conhecido como CAD 
/CAM, que permitirá que as 
atividades básicas de concep- 
ção de navios sejam feitas 
com mais eficiência e rapidez. 


S IMPRENSAFORD 





A Ford do Brasil já formou a primeira turma di 

projetistas brasileiros especializados no sistema 
CAD (desenho com auxilio do computador), apli. 
cado à engenharia. Esses especialistas, pioneiros na 
América Latina nessa área, já projetaram cerca de 
30 peças para os veículos da linha Ford, inclusive 


itens de tecnologia avan. i 
teem cada para equipar o Car- 
80, caminhão mundial da empresa." PO Car 


























Parte II 


No número anterior, publicamos as dicas das aplicações 
especiais das rotinas que agilizam o BASIC. Agora, você 
terá a dica da dica: grave essas sub-rotinas em disquete, 
para posterior utilização, via comando MERGE. Assim, 
pode-se formar uma verdadeira biblioteca de rotinas USR, 
que poderão ser usadas em programas BASIC, desde que, 
quando necessário, seja reservado espaço suficiente na me- 
mória. Como fazer isto? Simples! 

Usando o mesmo programa, a partir do DOS500 Ati- 
vo, digitamos CLEAR <ENTER > para (por precaução) 
limpar todas as variáveis; vamos ao BASIC, e digitamos 
um programinha bem curto e simples: 








20 DATA 33,0,60,17,1,80,1, 
255,3,237,176,201 
30 FORI=1T012:READD:POKE&HFFFO + |,D:NEXT 











Observe que usamos ape- 
nas as linhas 20 e 30 do pro- 
grama anterior; rode o pro- 
grama e em seguida retorne ao 
DOS500 Ativo por meio do 
CMD''S” <ENTER>, e 
lance mão do utilitário 
DUMP. (Veja, se ainda não o 
conhece plenamente, no ma- 
nual.) Para colocar os 12 
bytes que ainda estão nas po- 
sições FFFO e seguintes da me- 
mória num arquivo de disco, 
o comando deve ser emprega- 
do da seguinte forma: 








DUMP ENTELA (START = FFFO,END= FFFB) <ENTER> 





Digite DIR <ENTER> e você verá um novo arquivo 
no diretório, chamado ENTELA/CMD (talvez o primei- 
ro arquivo / CMD que você produziu sozinho!). Em 
BASIC, o programador poderá utilizar uma linha como: 





10 CMD'L”,“ENTELA/CMD” 





e a cada vez que (neste nosso caso) desejar encher a tela 
com um caractere, incluir uma outra linha com a instrução: 











PRINTGO, “caractere deseja: 





é fazer a chamada da sub-rotina com qualquer argumen- 
to válido. 

Empregando o utilitário DUMP, suprindo com o 
DOS500, para gerar rotinas USR, tenha o cuidado de fazê- 
lo em posições de memória sempre diferentes, seja lá quan- 
tas forem, a fim de que seja possível o uso de até 10 (quais- 
quer que sejam as que forem escolhidas), que irão residir 
em locais distintos e simultaneamente na RAM, evitando 
desta forma, o que poderíamos chamar de uma “briga de 
vizinhos”. 
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Neste número, para os CPs 500 e 300, uma dica sono- 
ra: o teclado do computador pessoal passará a ser 0 tecla- 
do de um piano. Como está, a Listagem 1 é um programa 
completo, uma vez que à sub-rotina ficará na memória, 
sendo chamada por meio da função USR. Muitas melho- 
ras poderão ser introduzidas, como por exemplo a detec- 


ção de uma tecla errada em determinada informação de 
dados. 


O G. DEL PIGCHIA = 
GERACAO PROLOGICA ** 
(128) 


ROTINA DO TECLADO * 
Dodo 


10 DEFINT AZ: 
35 REM * CAR EM 


DEFININDO LOCAL. DE CHAMADA 
BS REM - PARA SISTEMAS SEM DISCOS NAO USAR |. 


ue 





E dia Po Te Ui a, e tia 
Sa TO 8 Ee NEXT] 
£O DATA 25, 26,27, 38, 39, 47, 12, 48, 49, 10,1,2,3,4, 
depara a a a] 
o o o 36, 46, 45, 22, 23, 14, 17, 29, 18, 20, 43, 15, 41, 


8 OS RE PRESSAO DA TECLA * 


E 

vi 'R POSICAO DA TECLA PIF; 
Maps o 

ENVIAR PARA A ROTINA EM LINGI | 

DE MAQUINA e Fira 
10s 
120 N 
125 REM * SISTEMAS SEM DISCOS USAR: 
EADO A A a ARNO: E 
131 MENS ps | aa 
140 GOTO 90 








Até o próximo número! 
P. Fulvio G. Del Picchia 
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O seu computador pessoal (CP 500 ou CP 300), além 
de ser um poderoso equipamento de trabalho, pode se 
transformar num eficiente e fiel secretário particular, con- 
trolando o segredo de seu cofre, acendendo lâmpadas nos 
momentos adequados, ligando o seu televisor ou destran- 
cando uma porta. Para tanto, basta um circuito de inter- 
face para implementação desse sistema e os softwares 
adequados. Pronto! Num passe de mágica, o seu compu 
tador transportará sua casa ou escritório direto para o sé- 
culo XXI. 

Para ajudá-lo nesta tarefa, a redação da revista Gera- 
ção Prológica realizou pesquisas técnicas para encontrar 
soluções de hardware e software que possibilitem tais apli- 
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REPORTAGEM. mumum 





cações. Encontramos o programa Trava com Segredo, de 
senvolvido por Howard Berenbon e publicado no livro 
Aplicações para o seu TRS-80, o qual permite a ativação 
de um circuito de controle através da introdução de uma 
combinação no seu computador. Ele pode ser usado para 
abrir um cofre, acender uma lâmpada, ligar o seu televi 





sor ou destrancar uma porta. 
Siga corretamente as instruções de operação, utilize so- 
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mente Os componentes e circuitos indicados e digite os pro- 
gramas (em Basic Nível | ou II, conforme indicação) com 
atenção para transformar o seu computador pessoal no 
mais eficiente e fiel secretário particular. 


INTERFACE E CONTROLE 


Os circuitos de intertace e controle (figura 1) c a lista 
de componentes (Tabela A) são fundamentais para a im- 
plantação deste programa: a porta de E/S para cassete é 
usada para ativar o circuito; o plugue do cabo de interli- 
gação do gravador cassete com o CP é conectado ao ja- 
que J1 do circuito de interface; os contatos normalnien- 
te abertos do relé KI operam o circuito de controle; um 
relé de potência (K2) controla as lâmpadas ou os apare- 
lhos. Na versão Basic Nível 1, o programa usa a instrução 
INPUT A para ativar o circuito. A instrução OUT 255,4 
é usada na versão Basic Nível II. 








cIncuITO DE INTERFACE 





Tomada ca 


CIRCUITO DE CONTROLE 





FIGURA |: Circuito de interface e controle 







de Componentes dos 
de Interface e Controle 










cuitos 


Descrição 





Bateria de 9 volts 
Bateria de 6 volts 

Diodo de silício 1N914 ou equivalente 
Jaque 

Relé de 5 ou 6 volts CC, 500 ohms, um 
pólo, duas posições (Radio Shack 
275.004 ou equivalente) 

Relé de 6 volts CG, 350 ohms, um pó- 
lo, duas posições, corrente e tensão 


tronics 8021880, série 1345 ou equi- 
valente) 

Tomada CA; linha de 117VCA com plu- 
gue; garras 

















UTILIZAÇÃO DA TRAVA 
COMPUTADORIZADA 


Para construir a trava ativada por computador você de- 
verá substituir o relé K2 por um solenóide. Veja a figura 
2 para verificar as alterações no circuito. Nesta constru- 
ção, KI e B2 são exatamente iguais aos da figura 1. O so 
lenóide é de 6 volts, 2 oz a, no máximo, 1/4” (Allied 
Electronics 802-1111 ou equivalente). O êmbolo do sole- 
nóide é usado para trancar uma porta ou um cofre. 

Um sistema perfeito necessitaria de um teclado auxiliar 
externo para introduzir a combinação. Isto eliminaria o 
acesso direto ao computador, impedindo os curiosos de 
mexer no seu programa. 

Um sistema de iluminação ou controle de aparelhos do 
mésticos poderão ser ativados também com este progra- 
ma. O aparelho é conectado na tomada CA para ativação. 
Veja a figura 3 para ter uma idéia do desenrolar do 
programa. 








sotencioE 


m 








FIGURA 2: Circuito de solenóide para uma trava computadorizada 


INTRODUZA O MODO? 

“1 PARA GRAVAR A NOVA COMBINACAO 
“2 PARA TER ACESSO A COMBINACAO 
24 

GRAVACAO DA NOVA COMBINACAO 
INTRODUZA ATE 250 CARACTERES, 
LETRAS E/OU NUMEROS 

? MARINHA 

COMBINACAO GRAVADA 

INTRODUZA O MODO? 

A PARA GRAVAR A NOVA COMBINACAO 
21 TER ACESSO A COMBINACAO 





DIGITE A COMBINACAO | ; 
2 MARINHA Ea 
ABERTO 1 a 
DIGITE UM “F'PARA FECHAR 


FECHADO 
FIGURA 3: Amostra da execução do programa Trava com Segredo 
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PROGRAMA NÍVEL I 


O programa Nível | permite a entrada de uma combi- 
nação de até 18 dígitos. Você poderá gravar uma nova 
combinação, bastando digitar o número 1. Os dados de- 
vem ser introduzidos de acordo com o formato: Y,Z. 
Cada variável deve conter, no máximo, seis dígitos. Ao 
digitar o número 2, você entrará no Modo de Acesso para 
operação do circuito de controle. Introduza a combina- 
ção como nos seguintes exemplos: 


EE 


As duas virgulas são impr 
troduzidas sempre três variáveis. j 

O programa não sairá deste modo de operação. A in- 
trodução da resposta correta ativará o circuito de contro- 
lee fará aparecer a mensagem ABERTO na tela. O circuito 
permanecerá ativado até que o botão de inicialização do 
computador seja pressionado. Se houver um erro na en- 
trada, aparecerá a mensagem ERRO, REDIGITE. A men- 
sagem PROIBIDA A ENTRADA será exibida após três 
tentativas malsucedidas. Pressione BREAK para voltar ao 
READY. 








21034,111,1802 ou 2153,101,0 








veis, pois devem ser in- 





LISTAGEM DO PROGRAMA DE TRAVA 
COM SEGREDO — NÍVEL | 


100 PRINT“TRAVA COM SEGREDO! TRS-80 NIVEL 1º 

110 PRINT“DIREITOS AUTORAIS (C) 1980 DE 
HOWARD BERENBON" 

120 PRINT 

130 PRINT“INTRODUZA O MODO?” 

140 PRINT 1 PARA GRAVAR À NOVA 
COMBINACAO" 


160 INPUT A 
170 1F A=1 THEN 200 
180 1F A=2 THEN 260 
190 GOTO 130 
200 PRINT“GRAVACAO DA NOVA COMBINACAO” 
210 PRINTINTRODUZA ATE 6 DIGITOS POR 
VARIAVEL” 
220 PRINT“NO FORMATO: X,y,2" 
230 INPUT X YZ 
240 PRINT“COMBINACAO GRAVADA” 
250 GOTO 130 
26ocis 
270 PRINT"MODO DE ACESSO” 
280 PRINT E 
o aoldr DIGITE A COMBINACAO" 
310 INPUT U,VW : 
a 4 
30 IF (X=U) * (Y=V) * (2=W) THEN 350 
340 GOTO s60 24" E=m 
350 GOSUB 420 
360 INPUT £ A 
370 PRINT“ENTRADA PROIBIDA” 
380 GOTO 380 
390 
ERRO, REDIGITE” 


IN 
410 GOTO 310 
420 PRINT“ABERTO”. 
430 RETURN 
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150 PRINT" 2'PARA TER ACESSO A COMBINACAO" E 
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PROGRAMA NÍVEL II 


A versão Nível II permite a entrada dos números e le- 
tras constantes na combinação (no máximo, 250 caracte- 
res). Introduza a combinação como no exemplo abaixo: 


a 


Este programa é semelhante ao da versão Nível 1, po- 
rém você deve introduzir um C para desativar o circuito 
de controle. 





205ABCDEFGH 








LISTAGEM DO PROGRAMA DE TRAVA 
COM SEGREDO — NÍVE| 


100 PRINT“TRAVA COM SEGREDO:TRS-80 NIVEL Il” 
110 PRINT“DIREITOS AUTORAIS (C) 1980 DE 
HOWARD BERENBON" 
120 PRINT:CLEAR 600 
130 PRINT“INTRODUZA O MODO?" 
140 PRINT'1 PARA GRAVAR A NOVA 
COMBINACAO” 
150 PRINT“ 2'PARA TER ACESSO A COMBINACAO” 
160 INPUT A 
170 1F A=1 THEN 200 
180 1F A=2 THEN 260 
190 GOTO 130 
200 PRINT“GRAVACAO DA NOVA COMBINACAO” 
210 PRINT“INTRODUZ ATE 25QCARACTERES,” 
220 PRINT"LETRAS E/OU NUMEROS” 
s 


230 INPUT 
240 PRINT"COMBINACAO GRAVADA" 


250 GOTO 130 
260 CLS 
270 PRINT“MODO DE ACESSO" 


280 PRINT 
290 PRINT"DIGITE A COMBINACAO" 
300 


1 
320 INPUT BS 
330 IF AS < > BS THEN 460 
340 GOSUB 490 
350 OUT 255,4 Ei 
360 PRINT“DIGITE UM 'F'PARA FECHAR" 
870 INPUT CS 
SED IF CS < > “F” THEN 360 
390 OUT 255,0 
400 PRINT"FECHADO" 
410 FOR A =1TO990 
420 NEXT À 
430 GOTO 260) 
440 PRINT“ENTRADA PROIBID) 
450 GOTO 450 
4601F N=0 THEN 440 
470 PRINT“ERRO, REDIGITE” 
480 GOTO 310 
490 PRINT“ABERTO” 
500 RETURN 























Foros punto BonGEs 


O Computador: um Novo 
Super-Herói, de Maria Ceci- 
liaC, Baranauskas e Heloisa 
V.R. Correia Silva, Cartgraf 
Editora, Cr$ 19.000. 

Este livro conta a história 
de pessoas que estiveram en- 
volvidas no processo de evo- 
lução da informação, da ida- 
de da pedra até os tempos dos 
chips de silício. Você verá co- 
mo uma informação qual- 
quer é entendida e trabalha- 
da pelo computador em suas 
diversas partes. Para quem 
quiser ir mais além, existem 
também dois apêndices com 
programas escritos na lingua- 
gem Basice programas feitos 
por crianças na linguagem 
LOGO. 











Basic Rápido: Além do Basic 
TRS$-80, de George A. Grat- 
zer e Thomas G. Gratzer, 
256 págs. Editora Campus. 

Basic éa mais simplese po- 
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pular linguagem de progra- 
mação. Entretanto, em mui- 
tos programas, a resposta do 
computador é inconveniente- 
mente lenta. A solução é Ba- 
sic Rápido. Qualquer coisa 
que você faça com o Basic de 
seu TRS-80, Basic Rápido faz 
melhor ainda, garantem seus 
autores. Com este livro, é 
possivel tornar trêsou quatro 
vezes mais rápidos os cálcu- 
los aritméticos ou aumentar 
em mil vezes a velocidade de 
algumas funções. E tudo o 
que você precisa são os nomes 
de 60 rotinas na memória e 
menos de 20 instruções em 
linguagem Assembly. Mistu- 
re Basic e linguagem de má- 
quina e o resultado é a velo- 
cidade e eficiência. 











Introdução à Linguagem B; 
sic para Microcomputadores, 
de Carlos Lederman, Cart- 
graf Editora, Cr$ 28.000. 
Quem procura algo mais 
que uma simples introdução 
na linguagem Basic, encontra 
nesta obra características 
fundamentais, como a ques- 
tão de agilidade. Um livro au- 
todidático e prático, ilustra- 
do com teclado de vídeo do 
microcomputador, onde o 
autor aborda temas para 
aqueles que não possuem co- 
nhecimento do Basic, im 
como para os que já sei 
ram nesta linguagem. 

















Padrões em Programação — 
Métodos e Procedimentos, 
de G. Longworth, 234 pági- 
nas, Editora Campus. 

Fazer da programação 
uma atividade mais simples, 
gratificante e profissionaléo 
objetivo deste manual. Des- 
tinado a constituir uma refe- 
rência útil para programado- 
res experientes, ele cobre to- 
das as etapas do processo que 
se inicia com o projeto e de- 
senvolvimento dos progra- 
mas, passa pelas fases de co- 
dificação e teste, e se estende 
àsde implementação, manu- 
tenção, revisão e opti- 
mização. 








Além do Basic: Linguagem 
Assembly para a Linha Sin- 
clair, de Nelson N..S. Santos, 
161 págs., Editora Campus. 

Este é 0 primeiro livro di- 
dátieo sobre linguagem de 





máquina para micros da li- 
nha Sinclair. Evitando as fór- 
mulas mágicas, o autor escla- 
rece as dúvidas e desvenda to- 
dos os mistérios desta difícil, 
mas fascinante linguagem. 
Através de uma abordagem 
simples coloquial, ensina as 
primeiras instruções As- 
sembly em programas de 
complexidade crescente, que 
o leitor aprende a elaborar 
através de grande número de 
exercícios cuidadosamente 
selecionados. Um grande nú- 
mero de rotinas em lingua- 
gem de máquina enriquece e 
simplifica também os progra- 
mas em Basic. 





O Microcomputador no 
Consultório Médico, de Luiz 
Gonzaga Camargo Nasci- 
mento, Cartgraf Editora, 
Cr$ 24.000. 

Esta obra levanta os con- 
ceitos básicos da informática 
e demonstra os procedimen- 
tos de uma consulta médica, 
desde a identificação do pa- 
ciente, até a elaboração da re- 
ceita e da orientação para 
exames clínicos. Além disso, 
olivro dá destaque para a ela- 
boração de fluxogramas e 
diagramas de blocos e estu- 
do de anatomia do Basic. 
Quanto à parte clínica, são 
apresentadas as rotinas bási- 
cas para o desenvolvimento 
de programas. 
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GH EB BH EB [5 
22 3 =4 D 5 S 7 18 9 [4 


A EP GA CA Ce O O O 


TAN ND STARS CHR$ CODE PEER TAB 
NEW SAVE om coro costs 1040 usT LET FUNCTION 


EEE 


ARCSIN ARCOS ARCIAN SGN 


corr car cont cs SCROLL NEXT PAUSE 


IWKEY$ NOT 
BREAK 


O professor ideal 
para os iniciantes las 
no mundo da & 
informática. 








POR QUÊ? 
PORQUE O CP 400 
COLOR É UM 
MPUTADOR 





PESSOAL 
DETEMPO | 
INTEGRAL: ÚTIL 
PARA A FAMÍLIA TODA, O DIA 
INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUITO MAIS 


OCIONANTE PORQUE, ALÉM DE 





É O ÚNICO COM DOIS JONSTICKS 
ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVIMENTAR AS IMAGENS 
EM TODAS AS DIREÇÕES, MESMO. 
NA HORA DE TRABALHAR E 
ESTUDAR, O CP 400 COLOR MOSTRA 
LADO SÉRIO: MEMÓRIA 
ANSÍVEL, PORTA PARA COMU 
NICAÇÃO DE DADOS, SAÍDA PARA 
IMPRESSORA E UMA ÓTIMA NITIDEZ 
COM IMAGENS COLORIDAS. 
COMO SE TUDO ISSO 
BASTASSE, A PROLÓGICA AINDA 
OFERECE À GARANTIA DE 
(QUALIDADE DE QUEM É LÍDER NA 
TECNOLOGIA DE COMPUTA: 
DORES, E O PREÇO MAIS ACESSÍVEL 
NA CATEGORIA. ' 
NUMA FRASE: SE VOCÊ NÃO 
QUI SER CHEGAR ATRASADO AO 
COMPRE SEU CP 400 























COLOR IMEDIATAMENTE. 


NA TELA, ENQUANTO OUTROS TÊM 
SOMENTE 


















EMOÇÃO E INTELIGÊNCIA NUM 











EQUIPAMENTO SÓ. 8 DIREÇÕES. 
« IMAGENS COM ATÉ 9 CORES e GRANDE QUANTI, 
« ÓTIMA RESOLUÇÃO: 49.152 PONTOS. DADE D) 


* DUAS VERSO PROGRAMAS 
16K OU 64K DE A À DISPOSIÇÃ 
ME) si É APLICATIVOS 
COMEÇA COM 1ÓK E PODE CHEGAR PESSOAIS, PROFIS- 
ATÉ 64K COM DISQUETES. SION, 
PARA APLU 
TIVOSEJOGOS: 
BANCO DE DADOS, 
EDITOR DE TEX 
TOS, PLANILHAS 
ELETRÔNICAS, 
GRÁFICOS 
ENTRE OUTROS. 
* MEMÓRIA 
EXTERNA EM 
CASSETE OU DISQUETE 
DISKSYSTEN,CP 45 








Jocos. HE 
TESTE E COMPRE 

EU CP 400 COLOR NOS MAGAZ 
E REVENDEDORES PROLÓGICA 









COMPUTADORES PESSOAIS. 


PETIÇÃO DE 2 
JOGADORES AO 
MESMO TEMPO, 


SEUSJOYSTICKS 
ALÓGI 

OFERECEM INF 

NITAS POSIÇÕES 





